       01 OPENCLOSE                       PIC X(5).
         88 OPENCONNECTION                VALUE "OPEN".
         88 CLOSECONNECTION               VALUE "CLOSE".